home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / airbattle (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  373 lines
  1. 0 REM         'AIRBATTLE'                                  BY     LARRY  IRELAND
  2. 1 POKE53272,21
  3. 5 PRINT"[147]PLEASE LEAVE THE GAME DISK IN THE DISK  DRIVE.THE GAME NEEDS THE DATA
  4. 10 [151]53281,6 :[151]53280,14:D[178]6:UU[178][187]([171]TI)
  5. 20 V[178]53248:[143] START OF DISPLAY CHIP
  6. 21 [151] V[170]16,0:CT[178]1:LM[178]255:LN[178]256:MM[178]2[170]2[172]D:YM[178]LM:DD[178]2[172]D:LF[178]252:LR[178]258
  7. 22 [151] V[170]21,LM: [143] ENABLE ALL SPRITES
  8. 23 Z[178]0:C1[178]1:C2[178]2:C3[178]3:C4[178]4:C5[178]5:C6[178]6:C7[178]7:C8[178]8:C9[178]9:C0[178]10:CA[178]11:CB[178]12:CC[178]13
  9. 24 CD[178]14:CE[178]15:CF[178]16:CG[178]17:CH[178]18:CI[178]19:CJ[178]20
  10. 25 [129] X[178]Z[164]14:[151]V[170]X,Z:[130] X
  11. 30 [129] N[178]Z[164]62:[135] Q:[151] 832[170]N,Q:[130]
  12. 31 [129] N[178]Z[164]62:[135] Q:[151] 896[170]N,Q:[130]
  13. 33 [129] N[178]Z[164]62:[135] Q:[151] 960[170]N,Q:[130]
  14. 40 [129] X[178]Z [164] C3:[151]2040[170]C2[172]X,13:[151] 2041[170]C2[172]X,14:[130] X
  15. 45 [143] #0,2,4=ENEMY JETS;#1,3,5,7=BULLETS (#6 WILL BE CHANGED TO 'HERO')
  16. 50 [151] 2046,15:[151]V[170]45,7:[151]V[170]46,7
  17. 60 J[178]Z:A[178]Z :[143] J=COLOUR OF ENEMY JETS               &  A=COLOUR OF BULLETS
  18. 65 [151]V[170]39,J:[151]V[170]41,J:[151]V[170]43,J:[151]V[170]40,A:[151]V[170]42,A:[151]V[170]44,A
  19. 90 [151] V[170]23,Z :[151] V[170]29,LM :[143] EXPAND ALL SPRITES
  20. 100 XX[178]160:YY[178]225:HD[178]Z
  21. 101 [151] V[170]CB,XX:[151] V[170]CC,YY:[151]V[170]CE,LM
  22. 103 [159]15,8,15:[159] 3,8,3," AIRBATTLESCORE,S,R":[132]15,A$,B$,C$,D$
  23. 104 [139] A$[179][177]"00"[167] [160]3:[160]15:SJ[178]1:[137]108
  24. 105 [132]3,JS,JP$
  25. 106 [160]3:[160]15
  26. 108 [153]"LOADTHE HIGHEST SCORE TO DATE ON THIS DISK   IS ";
  27. 110 [139]SJ[178]1 [167] [153]"NOT AVAILABLE.":[137] 115
  28. 112 [153]"WAIT"JS" PTS. BY WAIT'";JP$;"'"
  29. 115 [153]"WAIT     DO YOU WANT GAME INSTRUCTIONS ?"
  30. 116 [153],"      (Y/N)"
  31. 117 [161] K$: [139] K$[178]"" [167] 117
  32. 118 [139] K$[178]"Y" [167] [141] 2000
  33. 119 [139] K$[178]"N" [167] 125
  34. 120 [137] 115
  35. 125 MM[178]C2[170]C2[172]D:DD[178]C2[172]D:[151]V[170]21,LM:CT[178]Z
  36. 130 [153]"LOAD"
  37. 135 [143]
  38. 136 [143] RECYCLE PT IS LINE 140*********
  39. 137 [143]
  40. 138 [143] SETUP X CO-ORD ENEMY JETS***140
  41. 139 [143]
  42. 140 [151]V[170]C1,CF:[151]V[170]C3,CF:[151]V[170]C5,CF:[151]V[170]C7,CF:[151]V[170]C9,CF:[151]V[170]CA,CF
  43. 141 R[178]Z:D1[178]Z:D2[178]Z:D3[178]Z:[151]V[170]30,0
  44. 145 [153]"YOUR SCORE IS ";TS[170]SC"CMD  WAIT":[153][163]21)"ONPOINTS"
  45. 150 PF[178][181]([187](C1)[172]278)[170]20
  46. 160 PS[178][181]([187](C1)[172]278)[170]20
  47. 170 PT[178][181]([187](C1)[172]278)[170]20:[139] R[178]C1 [167] [203]    [164] 250
  48. 180 FF[178][181]([187](C1)[172]75)[170]50
  49. 183 FS[178][181]([187](C1)[172]75)[170]50
  50. 186 FT[178][181]([187](C1)[172]75)[170]50
  51. 190 S [178]20[172][181]([187](C1)[172]C5):BS[178][181]([187](C1)[172]C4)
  52. 193 T [178]20[172][181]([187](C1)[172]C6):BT[178][181]([187](C1)[172]C4)
  53. 200 [139] PF[177]LM [167] [137]  1010
  54. 210 [151]V[170]Z,PF:[151]V[170]C2,PF
  55. 220 [139] [182](PF[171]PS)[179]55 [167] PS[178]PF[170]55
  56. 225 [139] PS[177]298 [167] PS[178]PF[171]55
  57. 230 [139] PS[177]LM [167] [137]  1020
  58. 240 [151]V[170]4,PS:[151]V[170]6,PS
  59. 250 [139] [182](PF[171]PT)[179]55 [176] [182](PS[171]PT)[179]55 [167] R[178]1:[137] 170
  60. 260 [139] PT[177]LM  [167] [137]  1030
  61. 265 [151]V[170]8,PT:[151]V[170]10,PT
  62. 270 [143]  LEAVE THIS LINE IN.......
  63. 298 [143]
  64. 299 [143] Y CO-ORD OF ENEMY JETS******300
  65. 300 [129] Y[178]CF [164] 380 [169] D
  66. 304 [139] D1[177]Z [167] [137] 310
  67. 305 [139] Y[179]LM [167] [151]V[170]C1,Y :[137] 310
  68. 306 [151]V[170]C1,LM[171]1:FF[178]400:D1[178]1:SC[178]SC[171]50
  69. 310 [139] D2[177]Z [167] [137] 315
  70. 311 [139] Y[177]S [175] Y[179]LM[170]S [167] [151]V[170]C5,Y[171]S:[137] 315
  71. 312 [151]V[170]C5,LM[171]1:[139]Y[177]LM[170]S [167] D2[178]1:FS[178]400:SC[178]SC[171]50
  72. 315 [139] D3[177]Z [167] [137] 320
  73. 316 [139] Y[177]T [175] Y[179]LM[170]T [167] [151]V[170]C9,Y[171]T:[137] 320
  74. 317 [151]V[170]C9,LM[171]1:[139]Y[177]LM[170]T [167]D3[178]1:FT[178]400:SC[178]SC[171]50
  75. 320 [139] Y[177]LM[170]S [175] Y[177]LM[170]T [167] Y[178]380:       [137] 990
  76. 321 [139] D2[177]Z [175] Y[177]LM[170]T [175] YS[177]LM [167] Y[178]380:[137] 990
  77. 322 [139] D3[177]Z [175] Y[177]LM[170]S [167] Y[178]380:[137] 990
  78. 323 :
  79. 324 [143] Y CO-ORD OF ENEMY BULLETS***325
  80. 325 [139] BS[178]Z [175] BT[178]Z [167] [137] 400
  81. 330 [139]Y[179]FF[167]361
  82. 335 [139][194](V[170]C3)[178]CF[167][151]V[170]C3,Y[170]20
  83. 340 Q[178][194](V[170]C3):Q[178]Q[170]DD:[139]Q[177]LM[167][151]V[170]C3,LM:[137]350
  84. 345 [151]V[170]C3,Q:[137]361
  85. 350 [139]D1[177]Z [167]FF[178]400:[151]V[170]C3,CF:[137]361
  86. 355 Q[178][194](V[170]C1)[170]20:[139]Q[177]205[167]361
  87. 358 [151]V[170]C3,Q
  88. 360 [143] BULLETS FOR SECOND ENEMY JET.
  89. 361 [139] BS[178]C1 [167] [137] 376
  90. 362 [139]Y[179]FS[170]S [167]376
  91. 364 [139][194](V[170]C7)[178]CF[167][151]V[170]C7,Y[171]S[170]20
  92. 366 Q[178][194](V[170]C7):Q[178]Q[170]DD:[139]Q[177]LM[167][151]V[170]C7,LM:[137]369
  93. 368 [151]V[170]C7,Q:[137]376
  94. 369 [139]D2[177]Z [167]FS[178]400:[151]V[170]C7,CF:[137]376
  95. 370 Q[178][194](V[170]C5)[170]20:[139]Q[177]205[167]376
  96. 372 [151]V[170]C7,Q
  97. 375 [143] BULLETS FOR THIRD ENEMY JET.
  98. 376 [139] BT[178]C1 [167] [137] 400
  99. 377 [139]Y[179]FT[170]T [167]400
  100. 380 [139][194](V[170]CA)[178]CF[167][151]V[170]CA,Y[171]T[170]20
  101. 383 Q[178][194](V[170]CA):Q[178]Q[170]DD:[139]Q[177]LM[167][151]V[170]CA,LM:[137]388
  102. 386 [151]V[170]CA,Q:[137]400
  103. 388 [139]D3[177]Z [167]FT[178]400:[151]V[170]CA,CF:[137]400
  104. 390 Q[178][194](V[170]C9)[170]20:[139]Q[177]225[167]400
  105. 395 [151]V[170]CA,Q
  106. 398 :
  107. 399 [143] MOVEMENT OF 'HERO'**********400
  108. 400 [161] H$ :[139] H$[178]""[167]500
  109. 401 [139] YM[177]207 [175]H$[178][199](32)[167]YM[178]206:[137]520
  110. 403 [139] H$[178][199](29)[167] [137]450:[143] RIGHT
  111. 404 [139] H$[178][199](17)[167] [137]414:[143] LEFT
  112. 405 [137] 500
  113. 414 [139] XX[179]LN [167] XX[178]XX[171]MM:[137] 440
  114. 415 XX[178]XX[171]MM:[139] XX[179]LN [167] 1100
  115. 420 [151] V[170]12,(XX[171]LM):[137] 500
  116. 440 [139] XX[179]20 [167] XX[178]20
  117. 445 [151] V[170]12,XX :[137] 500
  118. 450 [139] XX[177]LM [167] [137] 480
  119. 455 XX[178]XX[170]MM:[139] XX[177]LM [167] 1050
  120. 460 [151] V[170]12,XX:[137] 500
  121. 480 XX[178]XX[170]MM:[139] XX[177]297  [167] XX[178]297
  122. 485 [151] V[170]12,(XX[171]LM)
  123. 498 [143]
  124. 499 [143] FIRE & MOVE HERO'S BULLETS**500
  125. 500 [139] YM[179]207 [167] 550
  126. 510 [161] MM$
  127. 515 [139] MM$[178][199](32) [167] YM[178]206:[137] 520
  128. 516 [137] 600
  129. 520 [139] XX[177]LM [167] 1500
  130. 525 [151] V[170]14,XX:XM[178]XX
  131. 550 YM[178]YM[171]DD:[139]YM[179]25[167]YM[178]LM:[139]XM[177]LM[167]XM[178]Z:Q[178][194](V[170]16):[151]V[170]16,Q[171]128
  132. 560 [151] V[170]15,YM
  133. 598 [143]
  134. 599 [143] CHECK FOR SPRITE COLLISIONS**600
  135. 600 LL[178][194](V[170]30)
  136. 604 [139]LL[178]Z[176]LL[178]CB[176]LL[178]C3[176]LL[178]48[176]LL[178]CE[176]LL[178]51[176]LL[178]60[176]LL[178]63[167]980
  137. 610 [143] ***************ENEMY JETS HIT ?
  138. 620 [139] LL[178]129 [176] LL[178]189 [176] LL[178]141 [176] LL[178]177 [167] D1[178]C1:[141]3000:[137] 710
  139. 630 [139] LL[178]132 [176] LL[178]180 [176] LL[178]135 [176] LL[178]183 [167] D2[178]C1:[141]3000:[137] 710
  140. 640 [139] LL[178]144 [176] LL[178]156 [176] LL[178]147 [176] LL[178]159 [167] D3[178]C1:[141]3000
  141. 700 [143] *************HERO HIT*******
  142. 710 [139] LL[178]66 [176] LL[178]126 [176] LL[178]78 [176] LL[178]114 [167] 750
  143. 715 [139] LL[178]72 [176] LL[178]120 [176] LL[178]75 [176] LL[178]123 [167] 750
  144. 720 [139] LL[178]96 [176] LL[178]108 [176] LL[178]144 [176] LL[178]99 [176] LL[178]111 [167] 750
  145. 730 [139]LL[178]195[176]LL[178]198[176]LL[178]201[176]LL[178]204[176]LL[178]210[167] 750
  146. 735 [139]LL[178]216[176]LL[178]225[176]LL[178]228[176]LL[178]240[176]LL[178]255[167] 750
  147. 740 [137] 810
  148. 750 HD[178]C1:[137]3100
  149. 800 [143] **************COLLISION OF JETS?
  150. 810 [139] LL[178]65 [176] LL[178]125 [176] LL[178]77 [176] LL[178]113 [167] ED[178]C1:[141] 3200
  151. 820 [139] LL[178]68 [176] LL[178]116 [176] LL[178]71 [176] LL[178]119 [167] ED[178]C2:[141] 3200
  152. 830 [139] LL[178]80 [176] LL[178]92 [176] LL[178]83 [176] LL[178]95 [167] ED[178]C3:[141] 3200
  153. 980 [143] LEAVE THIS LINE IN
  154. 990 [130] Y
  155. 994 [139] XM[177]LM [167] 997
  156. 995 [139] XX[177]LM [167] [151]V[170]16,64 :[137] 999
  157. 996 [151]V[170]16,Z :[137] 999
  158. 997 [139] XX[177]LM [167] [151]V[170]16,192:[137] 999
  159. 998 [151] V[170]16,128
  160. 999 CT[178]CT[170]C1:SC[178]SC[170]5:[139] SC[177]998 [176] CT[177]12    [167] [141] 5000
  161. 1000 [137] 140
  162. 1001 [143] *****END OF CYCLE*****************************************************
  163. 1008 [143]
  164. 1009 [143] SHIFT F OVER 'LM'************
  165. 1010 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]C3
  166. 1015 [151]V[170]Z,PF[171]LM:[151]V[170]C2,PF[171]LM:[137]220
  167. 1018 [143]
  168. 1019 [143] SHIFT S OVER 'LM'************
  169. 1020 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]CB
  170. 1026 [151]V[170]C4,PS[171]LF:[151]V[170]C6,PS[171]LF:[137]250
  171. 1028 [143]
  172. 1029 [143] SHIFT T OVER 'LM'************
  173. 1030 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]48
  174. 1036 [151]V[170]C8,PT[171]LM:[151]V[170]C0,PT[171]LM:[137]270
  175. 1048 [143]
  176. 1049 [143] SHIFT HERO OVER 'LM'*********
  177. 1050 [151]V[170]12,LM
  178. 1051 Q[178][194](V[170]CF):[151]V[170]CF,Q[170]64
  179. 1090 [151]V[170]12,(XX[171]LM): [137] 500
  180. 1098 [143]
  181. 1099 [143] SHIFT HERO BACK_ 'LM'*********
  182. 1100 Q[178][194](V[170]CF):[151]V[170]CF,Q[171]64
  183. 1180 [151] V[170]12,XX:[137] 500
  184. 1198 [143]
  185. 1199 [143]  PATTERN FOR ENEMY JETS***********************************************
  186. 1200 [131] 1,247,192,0,255,128,0,127,0
  187. 1210 [131] 32,28,2,56,28,14,60,28,30
  188. 1220 [131] 62,28,62,63,62,126,47,255,250
  189. 1230 [131] 39,255,242,3,255,224,1,255,192
  190. 1240 [131] 0,255,128,0,127,0,0,54,0
  191. 1250 [131] 0,54,0,0,20,0,0,28,0,0,28,0
  192. 1260 [131] 0,28,0,0,8,0
  193. 1298 [143]
  194. 1299 [143] PATTERN FOR 'BULLETS'*********
  195. 1300 [131] 0,8,0,0,8,0,0,8,0,0,0,0
  196. 1310 [131] 0,0,0,0,0,0,0,8,0
  197. 1320 [131] 0,8,0,0,8,0,0,0,0,0,0,0
  198. 1330 [131] 0,0,0,0,8,0,0,8,0
  199. 1340 [131] 0,8,0,0,0,0,0,0,0,0,0,0
  200. 1350 [131] 0,8,0,0,8,0,0,8,0
  201. 1398 [143]
  202. 1399 [143] PATTERN FOR 'HERO'***********
  203. 1400 [131] 0,8,0,0,28,0,0,28,0,0,28,0
  204. 1410 [131] 0,20,0,0,54,0,0,54,0,0,127,0
  205. 1420 [131] 0,255,128,1,255,192,3,255,224
  206. 1430 [131] 39,255,242,47,255,250,63,62,126
  207. 1440 [131] 62,28,62,60,28,30,56,28,14
  208. 1450 [131] 32,28,2,0,127,0,0,255,128
  209. 1460 [131] 1,247,192
  210. 1498 [143]
  211. 1499 [143] HERO'S BULLETS FOR XX>LM******
  212. 1500 [139] PF[177]LM [167] [151]V[170]16,195:[137] 1580
  213. 1505 [139] PS[177]LM [167] [151]V[170]16,204:[137] 1580
  214. 1510 [139] PT[177]LM [167] [151]V[170]16,240:[137] 1580
  215. 1515 [151] V[170]16,192:[137] 1580
  216. 1580 XM[178]XX:[151] V[170]14,(XM[171]LM)
  217. 1585 [137]  550
  218. 1998 [143]
  219. 1999 [143] *****INSTRUCTIONS*************
  220. 2000 [143]
  221. 2001 [151] 53281,6:[151] 53280,6
  222. 2005 [153]"LOAD   GAME INSTRUCTIONS"
  223. 2010 [153]"YOU ARE THE PILOT OF THE JETFIGHTER AT  THE BOTTOM OF THE SCREEN.";
  224. 2015 [153]" YOU CAN MOVE  LEFT OR RIGHT,AS FOLLOWS..........."
  225. 2020 [153]"      CRSR(DOWN)  = MOVE LEFT"
  226. 2025 [153]"      CRSR(RIGHT) = MOVE RIGHT"
  227. 2030 [153]"TO FIRE YOUR CANON...TAP THE SPACEBAR   ONCE...BULLETS WILL APPEAR"
  228. 2032 [153]"(YOUR GUNS WILL NOT RELOAD UNTIL THE    LAST SHOT LEAVES THE SCREEN)
  229. 2035 PRINT"YOU CAN SCORE 100 PTS FOR EACH ENEMY JETFIGHTER THAT YOU DESTROY,BUT ";
  230. 2040 PRINT"YOU HAVE   ONLY ONE LIFE TO LOOSE SO BE CAREFUL."
  231. 2050 PRINT"(HIT ANY LETTER TO     START THE GAME)"
  232. 2055 GET KK$: IF KK$="" THEN 2055
  233. 2060 IFKK$=CHR$(29)THEN2500:REM RIGHT
  234. 2065 IFKK$=CHR$(17)THEN2600 :REM LEFT
  235. 2070 IFKK$=CHR$(32)THEN2055
  236. 2098 POKE 53281,6 :POKE 53280,14
  237. 2099 K$="N":PRINT"[147]": RETURN
  238. 2100 REM *******SCORING****************
  239. 2110 REM +100  FOR EVERY ENEMY DESTROYED
  240. 2120 REM +5    FOR EVERY CYCLE SURVIVED
  241. 2130 REM -50   FOR EVERY ENEMY MISSED
  242. 2140 REM *******************************
  243. 2198 :
  244. 2499 REM  PRACTISE MANEUVRE TO THE RIGHT
  245. 2500 IFXX>LMTHEN2550
  246. 2510 XX=XX+C2:IFXX>LMTHENQ=PEEK(V+CF):POKEV+CF,Q+64:POKEV+CB,XX-LM:GOTO2055
  247. 2520 POKEV+CB,XX:GOTO2055
  248. 2550 XX=XX+C2:IFXX>297THENXX=297
  249. 2560 POKEV+CB,XX-LM:GOTO2055
  250. 2599 REM  PRACTISE MANEUVRE TO THE LEFT
  251. 2600 IFXX<LNTHEN2650
  252. 2610 XX=XX-C2:IFXX<LNTHENQ=PEEK(V+CF):POKEV+CF,Q-64:POKEV+CB,XX:GOTO2055
  253. 2620 POKEV+CB,XX-LM:GOTO2055
  254. 2650 XX=XX-C2:IFXX<20THENXX=20
  255. 2660 POKEV+CB,XX:GOTO2055
  256. 2998 REM
  257. 2999 REM EXPLOSION OF JET*************
  258. 3000 EX=INT(XM/8):EY=INT((YM-50)/8)
  259. 3005 IF D1=C1 THEN YF=LM:POKEV+C1,CF
  260. 3006 IF D2=C1 THEN YS=LM:POKEV+C5,CF
  261. 3007 IF D3=C1 THEN YT=LM:POKEV+C9,CF
  262. 3008 IFXM>LMTHENQ=PEEK(V+16):POKEV+16,Q-128
  263. 3009 POKEV+CE,LM:XM=Z:YM=210:POKEV+CD,Z
  264. 3010 IF EY>22 THEN EY=22
  265. 3011 IF EY<2 THEN EY=2
  266. 3015 EE=1024+EX+40*EY:EC=55296+EX+40*EY:W=32
  267. 3020 POKE EC,8:POKE EE,81
  268. 3030 FOR X=1 TO 80  :NEXT
  269. 3040 POKE EC,7:POKE EE,86
  270. 3050 POKE EC-40,7:POKE EE-40,66
  271. 3055 POKE EC+40,7:POKE EE+40,66
  272. 3060 POKE EC-1,7:POKE EE-1,67
  273. 3065 POKE EC+1,7:POKE EE+1,67
  274. 3070 FOR X=1 TO 200:NEXT
  275. 3072 POKE EC-41,1:POKE EE-41,77:POKE EC-39,1:POKE EE-39,78
  276. 3074 POKE EC+41,1:POKE EE+41,77:POKE EC+39,1:POKE EE+39,78
  277. 3076 POKE EC-82,Z:POKE EE-82,77:POKE EC-80,Z:POKE EE-80,66
  278. 3078 POKE EC+82,Z:POKE EE+82,77:POKE EC+80,Z:POKE EE+80,66
  279. 3080 POKE EC-78,Z:POKE EE-78,78:POKE EC-2,Z:POKE EE-2,67
  280. 3082 POKE EC+78,Z:POKE EE+78,78:POKE EC+2,Z:POKE EE+2,67
  281. 3084 FOR X=1 TO 300:NEXT
  282. 3086 POKE EE,W:POKE EE+1,W:POKE EE+40,W:POKE EE-40,W:POKE EE-1,W:POKE EE-39,W
  283. 3088 POKEEE-41,W:POKE EE-39,W:POKEEE+41,W:POKE EE+39,W:POKEEE-2,W:POKE EE-82,W
  284. 3090 POKEEE-80,W:POKE EE-78,W:POKEEE+78,W:POKE EE+80,W:POKEEE+C2,W:POKE EE+82,W
  285. 3091 IF HD=1 THEN GOTO 4000
  286. 3092 POKEV+30,0:SC=SC+100:EX=Z:EY=Z:LL=Z
  287. 3093 IFD1>Z  ANDPEEK(V+C3)=CFTHENFF=400
  288. 3094 IFD2>Z  ANDPEEK(V+C7)=CFTHENFS=400
  289. 3095 IFD3>Z  ANDPEEK(V+CA)=CFTHENFT=400
  290. 3096 PRINT"     [157][157][157][157][157]"TS+SC
  291. 3097 RETURN
  292. 3098 :
  293. 3099 REM HERO SHOT BY BULLETS**********
  294. 3100 EX=INT(XX/8):EY=22:POKEV+C7,Z:POKEV+CC,LM:GOTO 3015
  295. 3199 REM JETS COLLIDE*************
  296. 3200 HD=C1:EX=INT(XX/8):EY=22:POKEV+CC,Z
  297. 3210 ON ED GOTO 3211,3212,3213
  298. 3211 POKEV+C1,Z:GOTO 3015
  299. 3212 POKEV+C5,Z:GOTO 3015
  300. 3213 POKEV+C9,Z:GOTO 3015
  301. 3998 REM
  302. 3999 REM END OF GAME WRAP UP**********
  303. 4000 POKEV+21,Z:PRINT"[147]
  304. 4030 TT[178]TS[170]SC:[153]"YOUR TOTAL SCORE IS "TT;"CMD WAIT PTS."
  305. 4040 [139] TT[177]4000 [167] R$[178]"N 'ACE'":[137] 4100
  306. 4050 [139] TT[177]3000 [167] R$[178]" 'HOT'":[137] 4100
  307. 4060 [139] TT[177]2000 [167] R$[178]" 'SHARP-SHOOTER'":[137] 4100
  308. 4070 [139] TT[177]1000 [167] R$[178]" 'BIRDMAN'":[137] 4100
  309. 4080 [139] TT[177]200 [167] R$[178]" 'BEGINNER'":[137] 4100
  310. 4090 R$[178]" 'KAMIKAZE'"
  311. 4100 [153]"BECAUSE OF YOUR EXPLOITS,YOU WILL BE"
  312. 4110 [153]"KNOW AS A";R$;" PILOT."
  313. 4120 [153]"THE HIGHEST SCORE BEFORE YOUR MISSION"
  314. 4130 [153]"WASWAIT"JS" BY WAIT'" JP$;"'."
  315. 4140 [139] TT[178][179]JS [167] 6000
  316. 4150 [153]"YOUR SCORE IS A NEW HIGHEST FOR THIS"
  317. 4160 [153]"DISK, AND IT WILL BE ENTERED ALONG WITH"
  318. 4170 [153]"YOUR NAME OR NICK-NAME AS THE NEW"
  319. 4180 [153]"RECORD."
  320. 4190 JS[178]TT
  321. 4200 [133]"ENTER YOUR NAME";PP$
  322. 4205 [137]4250
  323. 4210 [159]15,8,15:[159] 3,8,3,"@0: AIRBATTLESCORE,S,W":[132]15,A$,B$,C$,D$
  324. 4220 [139] A$[179][177]"00"[167][160]3:[160]15:[137]4300
  325. 4225 [152]3,JS;[199](13);
  326. 4230 [152]3,PP$;[199](13);
  327. 4240 [160] 3 :[160]15
  328. 4250 [153]"      NEW RECORD HAS BEEN ENTERED " :JP$[178]PP$
  329. 4260 [137] 6000
  330. 4300 [153]"ON THE DISK WAS NOT IN THE DRIVE,YOUR NEW  HIGH SCORE WAS NOT ";
  331. 4305 [153]"RECORDED ! ! ! ! ! CLOSE"
  332. 4310 [137] 6000
  333. 4998 [143]
  334. 4999 [143] END OF MISSION WRAP UP********
  335. 5000 [151]V[170]21,Z:[153]"LOAD"
  336. 5020 [153]" CONGRATULATIONS, YOU HAVE SURVIVED A    MISSION.":TS[178]TS[170]SC:SC[178]Z
  337. 5030 X[178]TI
  338. 5031 [161]KK$:[139]KK$[178]"Y"[167]5160
  339. 5032 [139]TI[177]X[170]200[167]5040
  340. 5033 [137] 5031
  341. 5040 [153]" WE ARE STILL IN DESPRITE NEED OF"
  342. 5050 [153]" EXPERIENCED FIGHTER PILOTS. THE ENEMY "
  343. 5055 [153]" IS SENDING FASTER PLANES AGAINST OUR    DEFENDERS."
  344. 5075 [129] X[178]1 [164] 5000:[130]
  345. 5080 [153]"WILL YOU VOLUNTEER FOR ANOTHER MISSION?          ( Y OR NCLOSE) ?"
  346. 5090 TM[178]TI[170] 500
  347. 5100 [139] TI[177]TM [167] 5150
  348. 5110 [161] K$: [139] K$[178]"" [167] 5100
  349. 5120 [139] K$[178]"N" [167] [153]"LOAD":[137]4030
  350. 5130 [139] K$[178]"Y" [167] 5150
  351. 5140 [137] 5100
  352. 5150 [153]"      THANK-YOU FOR VOLUNTEERING"
  353. 5155 [129] X[178]1 [164] 1800: [130]
  354. 5158 [153]"  WE WILL TRY TO GIVE YOU A FASTER JET                       THIS TIME.
  355. 5159 FOR X=1 TO 1500 : NEXT X
  356. 5160 D=D+C2 :PRINT"  GOOD  LUCK . ON YOUR NEXT MISSION !":IFD>20 THEN D=20
  357. 5190 FOR X=1 TO 2100 : NEXT X
  358. 5200 GOTO 125
  359. 6000 POKEV+C1,Z:POKEV+C3,Z:POKEV+C5,Z:POKEV+C7,Z:POKEV+C9,Z:POKEV+CA,Z:POKEV+CC,LM:POKEV+CE,LM
  360. 6010 PRINT"      DO YOU WANT TO TRY AGAIN ?                     Y OR N ?[145][145]"
  361. 6020 GETKK$:IFKK$=""THEN6020
  362. 6030 IFKK$="Y"THEN 6060
  363. 6040 IFKK$<>"N"THEN6020
  364. 6050 PRINT"[147]":GOTO60500
  365. 6060 SC=Z:TT=Z:D=6:HD=Z:CT=1:YM=LM:MM=14:DD=12:ED=Z:D1=Z:D2=Z:D3=Z:TS=Z
  366. 6070 XX=160:YY=225:POKEV+CB,XX:POKEV+CC,YY:POKEV+CE,LM:POKEV+CF,Z
  367. 6100 GOTO125
  368. 60500 END
  369. 60502 POKE53272,23
  370. 60505 PRINT"[146][147]LOAD"CHR$(34)"GAMES"CHR$(34)",8"
  371. 60510 PRINT"":POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
  372. 60515 END
  373.